home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu309.dms / pu309.adf / Satellite / readme (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-09-29  |  10KB  |  304 lines
  1. '     "ReadMe"         ReadMe program for satellite Tracker programs.
  2. '     -------- 
  3. '     Version 1.00 : Last Mod   29th July 1989  by ACH
  4. '     (C) 1989  Mr A. C. Hewat  G8NTH
  5. '
  6. Main:
  7. predictionTime = 0
  8. echo = 0
  9. lastChoise = 0
  10. oldSatellite = 0
  11. oldChoise1 = 0
  12. oldChoise2 = 0
  13. Quit = -1
  14. GOSUB ScreenSetup
  15. GOSUB Introduction
  16. WHILE  Quit
  17.   SLEEP
  18. WEND
  19. MENU OFF: MOUSE OFF: TIMER OFF
  20. WINDOW CLOSE 2: WINDOW CLOSE 3
  21. SCREEN CLOSE 2
  22. CLOSE #2
  23. MENU RESET 
  24. CLS
  25. STOP
  26.  
  27.  
  28.  
  29. CheckMenu:
  30. menuId = MENU(0)
  31. menuItem = MENU(1)
  32. ON menuId GOTO Project,SatelliteChoise,Predictions,Display
  33. RETURN
  34.  
  35.  
  36. CheckMouse:
  37. mouseId = MOUSE(0)
  38. IF mouseId > 1 OR mouseId < -1 THEN  GOTO TechInfo
  39. RETURN
  40.  
  41.  
  42. Project:
  43. MENU 1,lastChoise,1
  44. IF menuItem = 3 AND echo = 1 THEN Jump
  45. MENU 1,menuItem,2
  46. Jump:
  47. IF menuItem = 1 THEN CLS: GOSUB Introduction
  48. IF menuItem = 3 THEN GOSUB ScrnProj1
  49. IF menuItem = 4 THEN Quit = 0
  50. lastChoise = menuItem
  51. RETURN
  52.  
  53. SatelliteChoise:
  54. MENU 2,oldSatellite,1
  55. whichSatellite = menuItem
  56. MENU 2,whichSatellite,2
  57. IF whichSatellite = 1 THEN satName$ = "MIR"
  58. IF whichSatellite = 2 THEN satName$ = "SALYUT 7"
  59. IF whichSatellite = 3 THEN satName$ = "AJISAI"
  60. IF whichSatellite = 4 THEN satName$ = "OSCAR 9"
  61. IF whichSatellite = 5 THEN satName$ = "OSCAR 10"
  62. IF whichSatellite = 6 THEN satName$ = "OSCAR 11"
  63. IF whichSatellite = 7 THEN satName$ = "OSCAR 12"
  64. IF whichSatellite = 8 THEN satName$ = "OSCAR 13"
  65. IF whichSatellite = 9 THEN satName$ = "RS 10/11"
  66. IF whichSatellite = 10 THEN satName$ = "NOAA9"
  67. IF whichSatellite = 11 THEN satName$ = "NOAA10"
  68. IF whichSatellite = 12 THEN satName$ = "NOAA11"
  69. GOSUB ScrnSat
  70. oldSatellite = whichSatellite
  71. RETURN
  72.  
  73. Predictions:
  74. MENU 3,oldChoise1,1
  75. choise1 = menuItem
  76. MENU 3,choise1,2
  77. IF choise1 > 1 THEN
  78.   IF choise1 = 2 THEN predictionTime = 60
  79.   IF choise1 = 3 THEN predictionTime = 180
  80.   IF choise1 = 4 THEN predictionTime = 360
  81.   IF choise1 = 5 THEN predictionTime = 720
  82.   IF choise1 = 6 THEN predictionTime = 1440
  83.   IF choise1 = 7 THEN predictionTime = 2880
  84.   IF choise1 = 8 THEN predictionTime = 10080
  85.   GOSUB ScrnPred1
  86.   RETURN
  87. END IF
  88. GOSUB ScrnPred
  89. oldChoise1 = choise1
  90. RETURN
  91.  
  92. Display:
  93. MENU 4,oldChoise2,1
  94. choise2 = menuItem
  95. IF choise2 = 1 THEN  CLS
  96. IF choise2 = 2 THEN  CLS
  97. IF choise2 = 3 THEN  CLS
  98. IF choise2 = 4 THEN  CLS
  99.   path = 4
  100.   GOSUB ScrnOut  
  101. predictionTime = 0
  102. MENU 3,oldChoise1,1
  103. MENU 3,1,2 
  104. oldChoise1 = 1
  105. oldChoise2 = choise2
  106. TIMER ON 
  107. RETURN
  108.  
  109. ScreenSetup:
  110. SCREEN 2,640,250,4,2 
  111. WINDOW 2,"Read Me First!",,8,2
  112. ON MENU GOSUB CheckMenu: MENU ON
  113. ON MOUSE GOSUB CheckMouse: MOUSE ON
  114. MENU 1,0,1,"Project "
  115. MENU 1,1,2,"  Map Display "
  116. MENU 1,2,1,"              "
  117. MENU 1,3,1,"  Serial Echo "
  118. MENU 1,4,1,"  Quit        "
  119. MENU 2,0,1,"Satellite "
  120. MENU 2,1,1,"  MIR       "
  121. MENU 2,2,1,"  Salyut-7  "
  122. MENU 2,3,1,"  Ajisai    "
  123. MENU 2,4,1,"  OSCAR-9   "
  124. MENU 2,5,1,"  OSCAR-10  "
  125. MENU 2,6,1,"  OSCAR-11  "
  126. MENU 2,7,1,"  OSCAR-12  "
  127. MENU 2,8,1,"  OSCAR-13  "
  128. MENU 2,9,1,"  RS-10/11  "
  129. MENU 2,10,1,"  NOAA9     "             
  130. MENU 2,11,1,"  NOAA10    "
  131. MENU 2,12,1,"  NOAA11    "
  132. MENU 3,0,1,"Predictions"
  133. MENU 3,1,1,"  Real Time "
  134. MENU 3,2,1,"  One hour  "
  135. MENU 3,3,1,"  3 hours   "
  136. MENU 3,4,1,"  6 hours  "
  137. MENU 3,5,1,"  12 hours  "
  138. MENU 3,6,1,"  24 hours  "
  139. MENU 3,7,1,"  48 hours  "
  140. MENU 3,8,1,"  7 days    "
  141. MENU 4,0,1,"Display "
  142. MENU 4,1,1,"  Screen, Map  "
  143. MENU 4,2,1,"  Screen, Text "
  144. MENU 4,3,1,"  Printer      "
  145. MENU 4,4,1,"  Serial       "
  146. RETURN
  147.  
  148. Introduction:
  149. PRINT
  150. PRINT"                   ";CHR$(34);"Tracker";CHR$(34);" Satellite Tracking Program "
  151. PRINT"                   ------------------------------------"
  152. PRINT"                       (C) A. C. Hewat G8NTH,  1989 "
  153. PRINT
  154. PRINT"There are two programs, Tracker 8 and Tracker 9.  Tracker 8  is for those with"
  155. PRINT"1 Mbyte computers and Tracker 9 is for unextended  computers.  Tracker 8  is a"
  156. PRINT"larger program  which will display 5 satellites in real time whereas Tracker 9"
  157. PRINT"only displays 4.  All  the other features are removed.  For all  the  programs"
  158. PRINT"you must add your own co-ordinates and of course set the date and time."
  159. PRINT 
  160. PRINT"These satellite tracking  programs  will display satellites in real time.  The"
  161. PRINT"satellite is positioned in  real time above  the  appropriate  position of the"
  162. PRINT"earths surface. The bottom lines of  text  show  the appropriate status of the"
  163. PRINT"satellite currently being positioned. Several  options are  available via  the"
  164. PRINT"menues at the top. A detailed description of each of the menus is available by"
  165. PRINT"selection. There  are  four  menu  headings:  PROJECT, SATELLITE,  PREDICTION,"
  166. PRINT"DISPLAY. PROJECT has only two other options serial echo, which sends real time"
  167. PRINT"predictions to the serial port, and quit. SATELLITE lets you choose which  one"
  168. PRINT"you wamt extended predictions for. PREDICTION is the length of  time you  want"
  169. PRINT"extended predictions for. DISPLAY lets you direct where you want  the extended"
  170. PRINT"prediction to go, scn: com:, and its form, table graph etc."
  171. PRINT
  172. PRINT"Now try the Menues at the top using the right  mouse  button.  The left  mouse" 
  173. PRINT"button for more information on the inner workings  of  the  program and  other"
  174. PRINT"options."
  175. PRINT
  176. PRINT"Different map displays are available. Plain or with political boundries. These"
  177. PRINT"are changed by listing "GetNames" and following instructions.
  178. RETURN
  179.  
  180.  
  181. TechInfo:
  182. CLS
  183. PRINT"                   Technical Information"
  184. PRINT"                   ---------------------"
  185. PRINT
  186. PRINT"Prediction calculations from Mr J R Miller G3RUH Plan 10 program, modified"
  187. PRINT"and extended for the Amiga by A C Hewat G8NTH. Any comments or suggestions"
  188. PRINT"good or otherwise are welcome. "
  189. PRINT"                                     A C Hewat "
  190. PRINT"                                     Redwood, Blanchards Hill, Jacobs Well"
  191. PRINT"If you must phone its in the book!   Guildford, Surrey GU4 7QR. "
  192. PRINT"                                     @ GB3UP-2 UoS BBS (Packet)  "
  193. PRINT
  194. PRINT"James Miller has not seen this program so their is no point in asking him!"
  195. PRINT"If you change it for the better (or worse) please send me a copy.  "
  196. PRINT"The program is completely event and menu driven. Can be used for  "
  197. PRINT"multi-tasking and run as a background task, I think! The graphics routines" 
  198. PRINT"require the library files which must be residant on the disk and in the same"
  199. PRINT"sub-directory. Basic must be on the same disk unless you add some extra" 
  200. PRINT"lines to search for all the other bits and then change the directory to "
  201. PRINT"suit."
  202. PRINT
  203. PRINT"Satellite ephemeris are held as an array C1() to C13() towards the end of" 
  204. PRINT"the program.                                                              "
  205. PRINT                                                                            "
  206. PRINT"Lables start with a capital letter, variables do not and are all double "
  207. PRINT"precision.
  208. PRINT
  209. PRINT"The map was produced using DPaint 2. If you want a copy then a disk, with" 
  210. PRINT"some usefull PD or compiled language and a SAE."
  211. RETURN
  212.  
  213.  
  214. ScrnProj1:
  215. CLS
  216. PRINT
  217. PRINT"  Menu Selection: Project - Serial Echo   "
  218. PRINT"  ---------------"
  219. PRINT
  220. PRINT"The currently selected extended predection or the satellite  just  calculated"
  221. PRINT"will have all  the  parameters sent to the serial port  in  addition  to  the"
  222. PRINT"screen.  "
  223. PRINT
  224. PRINT"The format is the same as the screen, viz:  "
  225. PRINT" Satellite   Lat  Long  Height  MA  EL  AZ  Range  Rate  Mode  Illumination  "
  226. PRINT
  227. PRINT"The serial port parameters  are  set  up  as part of this  program  and  are"
  228. PRINT"out-putted on port com1:  at 1200 baud no parity 7 data bits 2 stop bits.   "
  229. RETURN
  230.  
  231.  
  232. ScrnSat:
  233. CLS
  234. PRINT
  235. PRINT"  Menu Selection: Satellite - "; satName$
  236. PRINT"  ---------------"
  237. PRINT
  238. PRINT"You have chosen the ";
  239. PRINT satName$ ;
  240. PRINT" satellite for display and calculation of "
  241. PRINT"predictions. It is now necessary to choose a period for the predictions and "
  242. PRINT"where they are to be displayed. This is done from the next two menu "
  243. PRINT"selections.  " 
  244. RETURN
  245.  
  246.  
  247. ScrnPred:
  248. CLS
  249. PRINT
  250. PRINT"  Menu Selection: Predictions - Real Time "
  251. PRINT"  ---------------"
  252. PRINT
  253. PRINT"The real time option is the defult value. After the predictions have been "
  254. PRINT"displayed, printed or sent to the serial port etc the program will revert to"
  255. PRINT"this option. Selecting this option means that the program will just continue"
  256. PRINT"with its map display and satellite positioning."
  257. RETURN
  258.  
  259.  
  260. ScrnPred1:
  261. CLS
  262. PRINT
  263. PRINT"  Menu Selection: Predictions - "; predictionTime
  264. PRINT"  ---------------"
  265. PRINT
  266. PRINT"You have selected a ";
  267. PRINT predictionTime;
  268. PRINT" min period for predictions. "
  269. PRINT"Where these predictions are to be displayed is the last menu selection that"
  270. PRINT"needs to be made."
  271. RETURN
  272.  
  273.  
  274. ScrnOut:
  275. CLS
  276. PRINT
  277. PRINT"  Menu Selection: Display -"
  278. PRINT"  ---------------"
  279. PRINT
  280. PRINT"Screen, Map"
  281. PRINT"-----------"
  282. PRINT"The predictions are plotted on the map display and the information printed"
  283. PRINT"at the bottom of the screen."
  284. PRINT
  285. PRINT"Screen, Text"
  286. PRINT"------------"
  287. PRINT"The predictions are produced as a list on the screen when the satellite is"
  288. PRINT"above the horizon."
  289. PRINT
  290. PRINT"Printer"
  291. PRINT"-------"
  292. PRINT"The predictions are sent to the printer in the form of a list as above."
  293. PRINT
  294. PRINT"Serial"
  295. PRINT"------"
  296. PRINT"The predictions are sent to the serial port in the form of a list as above."
  297. PRINT"The serial port is com1: set up with 1200 baud, no parity 7 data bits 2"
  298. PRINT"stop bits."
  299. PRINT
  300. PRINT"After the prediction chosen above, the display will revert to real time"
  301. PRINT"display of the satellite or satellites.  A new  prediction  can  then be "
  302. PRINT"selected if required."
  303. RETURN
  304.